home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 24 / Amiga Format AFCD24 (Feb 1998, Issue 108).iso / -seriously_amiga- / shareware / programming / other / apic / examples / mouse.lst < prev    next >
File List  |  1998-01-05  |  24KB  |  592 lines
  1. #PIC V1.0 (c)1997 J.Petroglou    LIST FILE
  2. #file: dh2:IDE/APICforAMINET/APIC/examples/mouse.src
  3. #date: Sun Dec 14 20:43:54 1997
  4. #pic : PIC16C54
  5. ADDR CODE     SRCLINE SOURCECODE
  6.  
  7. 0000             000001 ;PC mouse adapter for Amiga computers
  8. 0000             000002 ;
  9. 0000             000003 ; use serial Pc mouse on Amiga Computers without Software driver !!
  10. 0000             000004 ;
  11. 0000             000005 ; 03.01.96
  12. 0000             000006 ;
  13. 0000             000007 ;This Program converts the microsoft and the mouse system format to amiga ones,
  14. 0000             000008 ;three mouse buttons are supported (mouse system).
  15. 0000             000009 ;Only hardware, it`s like an original Amiga mouse
  16. 0000             000010 ;The Xtal frequenzy is 11.0592 Mhz, the TXD line from mouse is with a 20K
  17. 0000             000011 ;resistor directly with the PIC 16C54 Port connected. Only three other components
  18. 0000             000012 ;are needed for the voltage conversion: ICL7660 (voltage converter from Harris 
  19. 0000             000013 ;semiconductor,INTERSIL) and two capacitors with 10µF. The PCB is about 3*4.5cm.
  20. 0000             000014 ;My PC mouse needs -5V on TXD,5V on RTS and ground. 
  21. 0000             000015 ;The adapter recognizes mouse protocoll changes automatic. I think it`s easy
  22. 0000             000016 ;to include the Logitech protokoll but I don`t know it.
  23. 0000             000017 ;
  24. 0000             000018 ; see our Amiga Pic Tools Home Page:
  25. 0000             000019 ;
  26. 0000             000020 ; http://linux.rz.fh-hannover.de/~duesterb/
  27. 0000             000021 ; (Pic Simulator, Pic Progger)
  28. 0000             000022 ;
  29. 0000             000023 ;Dirk Düsterberg, duesterb@unixserv.rz.fh-hannover.de
  30. 0000             000024 ;
  31. 0000             000025 ;Jahnstr.9
  32. 0000             000026 ;31860 Emmerthal
  33. 0000             000027 ;Germany
  34. 0000             000028 ;
  35. 0000             000029 ;
  36. 0000             000030 ;thanks to Joannis Petroglou, who made this with his wonderful Tools possibel!
  37. 0000             000031 
  38. 0000             000032 
  39. 0000             000033 
  40. 0000             000034 ; Microsoft is a registered trademark of Microsoft Corp.
  41. 0000             000035 ; Mouse Systems is  registered trademark of MSC Technologies, Inc.
  42. 0000             000036 ; Microchip is a registered trademark of Microchip Technology
  43. 0000             000037 ; Logitech is a registered trademark too
  44. 0000             000038 ; This source is copyrighted to Dirk Düsterberg, no trademark
  45. 0000             000039 
  46. 0000             000040 
  47. 0000             000041 
  48. 0000             000042 
  49. 0000             000043 
  50. 0000             000044 
  51. 0000             000045     list p=PIC16C54, r=hex, s=off
  52. 0000             000046 
  53. 01FF             000047     RESET    start
  54. 0000             000048 
  55. 0000             000049 
  56. 0000             000050     CBLOCK 08h
  57. 0000             000051       trycnt            ;synctrys, which format?
  58. 0000             000052       loopcnt            ;loop counter
  59. 0000             000053       bitcnt            ;bit counter
  60. 0000             000054       serbuf            ;serial buffer
  61. 0000             000055       RBbuf                ;Port buffer
  62. 0000             000056     ENDC
  63. 0000             000057 
  64. 0000             000058     CBLOCK    10h
  65. 0000             000059       byte0                ;first received byte
  66. 0000             000060       byte1                ;second received byte and byte 4 (mouse system)
  67. 0000             000061       byte2                ;third received byte and byte 5 (mouse system)
  68. 0000             000062     ENDC
  69. 0000             000063 
  70. 0000             000064 RA    =    5
  71. 0000             000065 RB    =    6
  72. 0000             000066 
  73. 0000             000067 
  74. 0000             000068 
  75. 0000             000069 #define    RXD    RA,1            ;RXD input, bit 1 from Port A
  76. 0000             000070 
  77. 0000             000071 #define    r_b    RBbuf,2            ;right mouse button
  78. 0000             000072 #define    m_b    RBbuf,4            ;middle mouse button
  79. 0000             000073 #define    l_b    RBbuf,6            ;left mouse button
  80. 0000             000074 
  81. 0000             000075 #define    H    RBbuf,0            ;Horizontal Pulses
  82. 0000             000076 #define    HQ    RBbuf,5            ;Horizontal Quadrature Pulses
  83. 0000             000077 #define    V    RBbuf,1            ;Vertical Pulses
  84. 0000             000078 #define    VQ    RBbuf,7            ;Vertical Quadrature Pulses
  85. 0000             000079 
  86. 0000             000080 
  87. 0000             000081 #define    c    03,0
  88. 0000             000082 #define    z    03,2
  89. 0000             000083 
  90. 0000             000084 
  91. 0000 0C00        000085 start    movlw    0
  92. 0001 0006        000086     tris    RB
  93. 0002             000087 
  94. 0002 0CFF        000088     movlw    0ffh
  95. 0003 0005        000089     tris    RA
  96. 0004             000090 
  97. 0004 006C        000091     clrf    RBbuf            ;make butoons unpressed
  98. 0005 00EC        000092     decf    RBbuf,f
  99. 0006             000093 
  100. 0006 020C        000094     movf    RBbuf,w            ;use Port buffer to prevent read from Port
  101. 0007 0026        000095     movwf    RB
  102. 0008             000096 
  103. 0008 0068        000097     clrf    trycnt,f
  104. 0009             000098 
  105. 0009             000099 
  106. 0009             000100 
  107. 0009             000101 
  108. 0009             000102 
  109. 0009             000103 
  110. 0009             000104 
  111. 0009             000105 
  112. 0009             000106 
  113. 0009             000107 
  114. 0009             000108 
  115. 0009             000109 ;this is the routine for the microsoft format (3 bytes with 2 buttons)
  116. 0009             000110 
  117. 0009             000111 
  118. 0009             000112 
  119. 0009 0068        000113 micro    clrf    trycnt,f
  120. 000A 0C04        000114 mic    movlw    .4
  121. 000B 0088        000115     subwf    trycnt,w
  122. 000C 0603        000116     btfsc    c
  123. 000D 0A48        000117     goto    mouse            ;more than 3 trys? jump!
  124. 000E             000118     
  125. 000E 0971        000119     call    rcb            ;receive the first byte
  126. 000F 02A8        000120     incf    trycnt,f
  127. 0010             000121     
  128. 0010 020B        000122     movf    serbuf,w
  129. 0011 0FC0        000123     xorlw    11000000b        ;invert bit 6 and 7 from working register
  130. 0012 0EC0        000124     andlw    11000000b        ;clr bit 0 to 5 (buttons and coord.)
  131. 0013 0743        000125     btfss    z            ;skip if w is zero
  132. 0014 0A0A        000126     goto    mic            ;if not zero -> no match
  133. 0015             000127 
  134. 0015 020B        000128     movf    serbuf,w        ;this is the first received byte
  135. 0016 0030        000129     movwf    byte0
  136. 0017             000130 
  137. 0017 058C        000131     bsf    m_b            ;middle button not supported
  138. 0018             000132 
  139. 0018 068B        000133     btfsc    serbuf,4        ;mov buttons
  140. 0019 044C        000134     bcf    r_b
  141. 001A 078B        000135     btfss    serbuf,4
  142. 001B 054C        000136     bsf    r_b
  143. 001C             000137 
  144. 001C 06AB        000138     btfsc    serbuf,5
  145. 001D 04CC        000139     bcf    l_b
  146. 001E 07AB        000140     btfss    serbuf,5
  147. 001F 05CC        000141     bsf    l_b
  148. 0020             000142 
  149. 0020 0971        000143     call    rcb            ;receive second byte
  150. 0021             000144 
  151. 0021             000145     
  152. 0021 0C80        000146     movlw    10000000b
  153. 0022 01AB        000147     xorwf    serbuf,f        ;invert bit 7 from buffer
  154. 0023 020B        000148     movf    serbuf,w
  155. 0024 0EC0        000149     andlw    11000000b        ;clr bit 0 to 5 (coord.)
  156. 0025 0743        000150     btfss    z                ;skip if w is zero
  157. 0026 0A48        000151     goto    mouse            ;if not zero -> no match -> mouse format
  158. 0027             000152         
  159. 0027             000153     
  160. 0027 0071        000154     clrf    byte1
  161. 0028             000155 
  162. 0028 0710        000156     btfss    byte0,0            ;mov x6 and x7 coord. to byte1
  163. 0029 04D1        000157     bcf    byte1,6
  164. 002A 0610        000158     btfsc    byte0,0
  165. 002B 05D1        000159     bsf    byte1,6
  166. 002C             000160 
  167. 002C             000161 
  168. 002C 0730        000162     btfss    byte0,1            ;mov x6 and x7 coord. to byte1
  169. 002D 04F1        000163     bcf    byte1,7
  170. 002E 0630        000164     btfsc    byte0,1
  171. 002F 05F1        000165     bsf    byte1,7
  172. 0030             000166 
  173. 0030             000167 
  174. 0030             000168 
  175. 0030 020B        000169     movf    serbuf,w        ;set rest of x coord.
  176. 0031 0131        000170     iorwf    byte1,f
  177. 0032             000171 
  178. 0032             000172 
  179. 0032             000173 
  180. 0032 0971        000174     call    rcb            ;receive third byte
  181. 0033             000175 
  182. 0033             000176 
  183. 0033 0C80        000177     movlw    10000000b
  184. 0034 01AB        000178     xorwf    serbuf,f        ;invert bit 7 from buffer
  185. 0035 020B        000179     movf    serbuf,w
  186. 0036 0EC0        000180     andlw    11000000b        ;clr bit 0 to 5 (coord.)
  187. 0037 0743        000181     btfss    z            ;skip if w is zero
  188. 0038 0A48        000182     goto    mouse            ;if not zero -> no match -> mouse format
  189. 0039             000183 
  190. 0039 0072        000184     clrf    byte2
  191. 003A             000185 
  192. 003A             000186 
  193. 003A             000187 
  194. 003A 0750        000188     btfss    byte0,2            ;mov y6 and y7 coord. to byte2
  195. 003B 04D2        000189     bcf    byte2,6
  196. 003C 0650        000190     btfsc    byte0,2
  197. 003D 05D2        000191     bsf    byte2,6
  198. 003E             000192 
  199. 003E             000193 
  200. 003E             000194 
  201. 003E 0770        000195     btfss    byte0,3            ;mov y6 and y7 coord. to byte2
  202. 003F 04F2        000196     bcf    byte2,7
  203. 0040 0670        000197     btfsc    byte0,3
  204. 0041 05F2        000198     bsf    byte2,7
  205. 0042             000199 
  206. 0042             000200 
  207. 0042             000201 
  208. 0042 020B        000202     movf    serbuf,w        ;set rest of y coord.
  209. 0043 0132        000203     iorwf    byte2,f
  210. 0044             000204 
  211. 0044 0272        000205     comf    byte2,f            ;fix microsoft to mouse protokoll
  212. 0045 02B2        000206     incf    byte2,f            ;(up and down exchanged)
  213. 0046             000207 
  214. 0046 0068        000208     clrf    trycnt
  215. 0047 0A09        000209     goto    micro
  216. 0048             000210 
  217. 0048             000211 
  218. 0048             000212 
  219. 0048             000213 ;this is the routine for the mouse system format (5 bytes with 3 buttons)
  220. 0048             000214 
  221. 0048             000215 
  222. 0048 0C06        000216 mouse    movlw    .6
  223. 0049 0088        000217     subwf    trycnt,w
  224. 004A 0603        000218     btfsc    c
  225. 004B 0A09        000219     goto    micro            ;more than 5 trys? jump micro!
  226. 004C             000220 
  227. 004C 0971        000221     call    rcb            ;get first of five bytes from serial mouse
  228. 004D             000222 
  229. 004D 02A8        000223     incf    trycnt,f        ;one more try
  230. 004E             000224 
  231. 004E             000225 ;test format #10000lmr (left, middle, right) 
  232. 004E             000226 
  233. 004E 020B        000227     movf    serbuf,w
  234. 004F 0F80        000228     xorlw    10000000b        ;invert bit 7 from working register
  235. 0050 0EF8        000229     andlw    11111000b        ;clr bit 0 to 2 (buttons)
  236. 0051 0743        000230     btfss    z            ;skip if w is zero
  237. 0052 0A48        000231     goto    mouse            ;if not zero -> no match
  238. 0053             000232     
  239. 0053 020B        000233     movf    serbuf,w
  240. 0054 0030        000234     movwf    byte0
  241. 0055             000235 
  242. 0055             000236 
  243. 0055             000237 
  244. 0055 0971        000238     call    rcb            ;byte1, X-Axis movement data
  245. 0056 020B        000239     movf    serbuf,w
  246. 0057 0031        000240     movwf    byte1
  247. 0058             000241 
  248. 0058 0971        000242     call    rcb            ;byte2, Y-Axis movement data
  249. 0059 020B        000243     movf    serbuf,w
  250. 005A 0032        000244     movwf    byte2
  251. 005B             000245     
  252. 005B 0971        000246     call    rcb            ;byte3, X-Axis movement data    
  253. 005C 020B        000247     movf    serbuf,w
  254. 005D 0031        000248     movwf    byte1
  255. 005E             000249 
  256. 005E 0971        000250     call    rcb            ;byte4, Y-Axis movement data
  257. 005F 020B        000251     movf    serbuf,w
  258. 0060 0032        000252     movwf    byte2
  259. 0061             000253 
  260. 0061             000254 
  261. 0061             000255 
  262. 0061 0710        000256     btfss    byte0,0            ;convert to Amiga
  263. 0062 044C        000257     bcf    r_b
  264. 0063 0610        000258     btfsc    byte0,0
  265. 0064 054C        000259     bsf    r_b
  266. 0065             000260 
  267. 0065             000261 
  268. 0065 0730        000262     btfss    byte0,1
  269. 0066 048C        000263     bcf    m_b
  270. 0067 0630        000264     btfsc    byte0,1
  271. 0068 058C        000265     bsf    m_b
  272. 0069             000266 
  273. 0069             000267 
  274. 0069 0750        000268     btfss    byte0,2
  275. 006A 04CC        000269     bcf    l_b
  276. 006B 0650        000270     btfsc    byte0,2
  277. 006C 05CC        000271     bsf    l_b
  278. 006D             000272 
  279. 006D             000273 
  280. 006D 020C        000274     movf    RBbuf,w
  281. 006E 0026        000275     movwf    RB            ;use Port buffer to prevent read from Port
  282. 006F             000276 
  283. 006F 0068        000277     clrf    trycnt            
  284. 0070             000278 
  285. 0070 0A48        000279     goto    mouse
  286. 0071             000280 
  287. 0071             000281 
  288. 0071             000282 
  289. 0071             000283 
  290. 0071             000284 
  291. 0071             000285 
  292. 0071             000286 
  293. 0071             000287 ;receive routine, receive 8bits
  294. 0071             000288 ;loop is done until byte is received
  295. 0071             000289 
  296. 0071             000290 
  297. 0071             000291 
  298. 0071             000292 
  299. 0071 0625        000293 rcb    btfsc    RXD
  300. 0072 0A74        000294     goto    rcshift            ;startbit ?
  301. 0073 0A71        000295     goto    rcb
  302. 0074             000296 
  303. 0074 0C08        000297 rcshift    movlw    .8
  304. 0075 002A        000298     movwf    bitcnt
  305. 0076             000299 
  306. 0076 0982        000300     call    whbit            ;wait half bit (middle bit position)
  307. 0077             000301 
  308. 0077 098E        000302 r_it    call    wbit            ;wait bit delay
  309. 0078             000303 
  310. 0078 0725        000304     btfss    RXD            ;move RXD into c
  311. 0079 0403        000305     bcf    c
  312. 007A 0625        000306     btfsc    RXD
  313. 007B 0503        000307     bsf    c
  314. 007C             000308 
  315. 007C 032B        000309     rrf    serbuf,f        ;rotate c in serbuf
  316. 007D 02EA        000310     decfsz    bitcnt
  317. 007E 0A77        000311     goto    r_it            ;decrement bit counter (8 bits)
  318. 007F 026B        000312     comf    serbuf            ;invert serbuf (RS232 -> TTL)
  319. 0080 0982        000313     call    whbit            ;wait a half bit to get out from data area
  320. 0081 0800        000314     retlw    0            ;back
  321. 0082             000315 
  322. 0082             000316 
  323. 0082             000317 
  324. 0082             000318 
  325. 0082             000319 
  326. 0082             000320 
  327. 0082             000321 
  328. 0082             000322 
  329. 0082             000323 ;wait routine for one and one half bit for 1200 baud
  330. 0082             000324 
  331. 0082             000325 
  332. 0082 0C7D        000326 whbit    movlw    .125
  333. 0083 0029        000327     movwf    loopcnt            ;1200
  334. 0084 0000        000328 do_hbit    nop
  335. 0085 0000        000329     nop
  336. 0086 0000        000330     nop
  337. 0087 0000        000331     nop
  338. 0088 0000        000332     nop
  339. 0089 0000        000333     nop
  340. 008A 0000        000334     nop
  341. 008B 02E9        000335     decfsz    loopcnt
  342. 008C 0A84        000336     goto    do_hbit
  343. 008D 0800        000337     retlw    0
  344. 008E             000338 
  345. 008E             000339 
  346. 008E             000340 
  347. 008E             000341 
  348. 008E             000342 
  349. 008E             000343 ;this routine is one bit long, it converts the axe counter to a quadrature
  350. 008E             000344 ;modulation, every change on V,VQ,H or HQ means a mouse move
  351. 008E             000345 
  352. 008E             000346 
  353. 008E 0C2D        000347 wbit    movlw    .45
  354. 008F 0029        000348     movwf    loopcnt            ;quad mod is done while bit waiting
  355. 0090             000349 
  356. 0090 0211        000350 x_axe    movf    byte1,w
  357. 0091 0643        000351     btfsc    z
  358. 0092 0AA8        000352     goto    x_axe0            ;byte1 = 0, nothing to do
  359. 0093 06F1        000353     btfsc    byte1,7
  360. 0094 0ABB        000354     goto    _right            ;jump if bit
  361. 0095 0000        000355     nop
  362. 0096 0000        000356     nop
  363. 0097 0000        000357     nop
  364. 0098 0000        000358     nop
  365. 0099 0000        000359     nop
  366. 009A 00F1        000360 left    decf    byte1,f            ;decrement byte 1
  367. 009B 060C        000361     btfsc    H
  368. 009C 0AA1        000362     goto    leftx1            ;jmp to x1 if H set
  369. 009D 06AC        000363     btfsc    HQ
  370. 009E 0AA6        000364     goto    left10
  371. 009F 050C        000365     bsf    H            ;set H if H and HQ clear
  372. 00A0 0AB6        000366     goto    lback1
  373. 00A1 06AC        000367 leftx1    btfsc    HQ            
  374. 00A2 040C        000368     bcf    H            ;clr H if H set and HQ set
  375. 00A3 07AC        000369     btfss    HQ
  376. 00A4 05AC        000370     bsf    HQ            ;set HQ if H set and HQ clear
  377. 00A5 0AB8        000371     goto    lback3
  378. 00A6 04AC        000372 left10    bcf    HQ            ;clear HQ if H clear and HQ set
  379. 00A7 0AB7        000373     goto    lback2
  380. 00A8 0000        000374 x_axe0    nop
  381. 00A9 0000        000375     nop
  382. 00AA 0000        000376     nop
  383. 00AB 0000        000377     nop
  384. 00AC 0000        000378     nop
  385. 00AD 0000        000379     nop
  386. 00AE 0000        000380     nop
  387. 00AF 0000        000381     nop
  388. 00B0 0000        000382     nop
  389. 00B1 0000        000383     nop
  390. 00B2 0000        000384     nop
  391. 00B3 0000        000385     nop
  392. 00B4 0000        000386     nop
  393. 00B5 0000        000387     nop
  394. 00B6 0000        000388 lback1    nop
  395. 00B7 0000        000389 lback2    nop
  396. 00B8 020C        000390 lback3    movf    RBbuf,w
  397. 00B9 0026        000391     movwf    RB            ;use Port buffer to prevent read from Port
  398. 00BA 0AD3        000392     goto    y_axe
  399. 00BB             000393 
  400. 00BB 0271        000394 _right    comf    byte1,f            ;negate byte1
  401. 00BC 02B1        000395     incf    byte1,f
  402. 00BD             000396 
  403. 00BD 0000        000397     nop
  404. 00BE 0000        000398     nop
  405. 00BF             000399 
  406. 00BF 00F1        000400 right    decf    byte1,f
  407. 00C0 06AC        000401     btfsc    HQ
  408. 00C1 0AC6        000402     goto    right1x            ;jmp to 1x if HQ set
  409. 00C2 060C        000403     btfsc    H
  410. 00C3 0ACB        000404     goto    right01
  411. 00C4 05AC        000405     bsf    HQ            ;set HQ if H and HQ clear
  412. 00C5 0ACD        000406     goto    rback1
  413. 00C6 060C        000407 right1x    btfsc    H            
  414. 00C7 04AC        000408     bcf    HQ            ;clrb H if H and HQ set
  415. 00C8 070C        000409     btfss    H
  416. 00C9 050C        000410     bsf    H            ;setb H if H clear and HQ set
  417. 00CA 0ACF        000411     goto    rback3
  418. 00CB 040C        000412 right01    bcf    H            ;clr H if HQ clear and H set
  419. 00CC 0ACE        000413     goto    rback2
  420. 00CD             000414 
  421. 00CD 0000        000415 rback1    nop
  422. 00CE 0000        000416 rback2    nop
  423. 00CF 020C        000417 rback3    movf    RBbuf,w
  424. 00D0 0026        000418     movwf    RB            ;use Port buffer to prevent read from Port
  425. 00D1 0271        000419     comf    byte1,f
  426. 00D2 02B1        000420     incf    byte1,f
  427. 00D3             000421 
  428. 00D3             000422     
  429. 00D3             000423 
  430. 00D3             000424 
  431. 00D3 0212        000425 y_axe    movf    byte2,w
  432. 00D4 0643        000426     btfsc    z
  433. 00D5 0AEB        000427     goto    y_axe0            ;byte2 = 0, nothing to do
  434. 00D6 06F2        000428     btfsc    byte2,7
  435. 00D7 0AFE        000429     goto    _up            ;jump if bit
  436. 00D8 0000        000430     nop
  437. 00D9 0000        000431     nop
  438. 00DA 0000        000432     nop
  439. 00DB 0000        000433     nop
  440. 00DC 0000        000434     nop
  441. 00DD 00F2        000435 down    decf    byte2,f
  442. 00DE 06EC        000436     btfsc    VQ
  443. 00DF 0AE4        000437     goto    down1x            ;jmp to 1x if VQ set
  444. 00E0 062C        000438     btfsc    V
  445. 00E1 0AE9        000439     goto    down01
  446. 00E2 05EC        000440     bsf    VQ            ;set VQ if V and VQ clear
  447. 00E3 0AF9        000441     goto    dback1
  448. 00E4 062C        000442 down1x    btfsc    V            
  449. 00E5 04EC        000443     bcf    VQ            ;clrb V if V and VQ set
  450. 00E6 072C        000444     btfss    V
  451. 00E7 052C        000445     bsf    V            ;setb V if V clear and VQ set
  452. 00E8 0AFB        000446     goto    dback3
  453. 00E9 042C        000447 down01    bcf    V            ;clr V if VQ clear and V set
  454. 00EA 0AFA        000448     goto    dback2
  455. 00EB 0000        000449 y_axe0    nop
  456. 00EC 0000        000450     nop
  457. 00ED 0000        000451     nop
  458. 00EE 0000        000452     nop
  459. 00EF 0000        000453     nop
  460. 00F0 0000        000454     nop
  461. 00F1 0000        000455     nop
  462. 00F2 0000        000456     nop
  463. 00F3 0000        000457     nop
  464. 00F4 0000        000458     nop
  465. 00F5 0000        000459     nop
  466. 00F6 0000        000460     nop
  467. 00F7 0000        000461     nop
  468. 00F8 0000        000462     nop
  469. 00F9 0000        000463 dback1    nop
  470. 00FA 0000        000464 dback2    nop
  471. 00FB 020C        000465 dback3    movf    RBbuf,w
  472. 00FC 0026        000466     movwf    RB            ;use Port buffer to prevent read from Port
  473. 00FD 0B16        000467     goto    done
  474. 00FE             000468 
  475. 00FE 0272        000469 _up    comf    byte2,f
  476. 00FF 02B2        000470     incf    byte2,f
  477. 0100 0000        000471     nop
  478. 0101 0000        000472     nop
  479. 0102             000473 
  480. 0102 00F2        000474 up    decf    byte2,f
  481. 0103 062C        000475     btfsc    V
  482. 0104 0B09        000476     goto    up_x1            ;jmp to x1 if V set
  483. 0105 06EC        000477     btfsc    VQ
  484. 0106 0B0E        000478     goto    up_10
  485. 0107 052C        000479     bsf    V            ;set V if V and VQ clear
  486. 0108 0B10        000480     goto    uback1
  487. 0109 06EC        000481 up_x1    btfsc    VQ            
  488. 010A 042C        000482     bcf    V            ;clr V if V set and VQ set
  489. 010B 07EC        000483     btfss    VQ
  490. 010C 05EC        000484     bsf    VQ            ;set VQ if V set and VQ clear
  491. 010D 0B12        000485     goto    uback3
  492. 010E 04EC        000486 up_10    bcf    VQ            ;clear VQ if V clear and VQ set
  493. 010F 0B11        000487     goto    uback2
  494. 0110 0000        000488 uback1    nop
  495. 0111 0000        000489 uback2    nop
  496. 0112 020C        000490 uback3    movf    RBbuf,w
  497. 0113 0026        000491     movwf    RB            ;use Port buffer to prevent read from Port
  498. 0114 0272        000492     comf    byte2,f
  499. 0115 02B2        000493     incf    byte2,f
  500. 0116             000494     
  501. 0116             000495     
  502. 0116             000496 
  503. 0116 02E9        000497 done    decfsz    loopcnt
  504. 0117 0A90        000498     goto    x_axe
  505. 0118 0800        000499     retlw    0    
  506.  
  507.  
  508. Used Symbols
  509. -----------------------------------------
  510. trycnt                           00000008
  511. loopcnt                          00000009
  512. bitcnt                           0000000A
  513. serbuf                           0000000B
  514. RBbuf                            0000000C
  515. byte0                            00000010
  516. byte1                            00000011
  517. byte2                            00000012
  518. RA                               00000005
  519. RB                               00000006
  520. start                            00000000
  521. micro                            00000009
  522. mic                              0000000A
  523. mouse                            00000048
  524. rcb                              00000071
  525. rcshift                          00000074
  526. r_it                             00000077
  527. whbit                            00000082
  528. do_hbit                          00000084
  529. wbit                             0000008E
  530. x_axe                            00000090
  531. left                             0000009A
  532. leftx1                           000000A1
  533. left10                           000000A6
  534. x_axe0                           000000A8
  535. lback1                           000000B6
  536. lback2                           000000B7
  537. lback3                           000000B8
  538. _right                           000000BB
  539. right                            000000BF
  540. right1x                          000000C6
  541. right01                          000000CB
  542. rback1                           000000CD
  543. rback2                           000000CE
  544. rback3                           000000CF
  545. y_axe                            000000D3
  546. down                             000000DD
  547. down1x                           000000E4
  548. down01                           000000E9
  549. y_axe0                           000000EB
  550. dback1                           000000F9
  551. dback2                           000000FA
  552. dback3                           000000FB
  553. _up                              000000FE
  554. up                               00000102
  555. up_x1                            00000109
  556. up_10                            0000010E
  557. uback1                           00000110
  558. uback2                           00000111
  559. uback3                           00000112
  560. done                             00000116
  561.  
  562.  
  563. Used Defines
  564. -----------------------------------------
  565. c                                03,0 
  566. H                                RBbuf,0 
  567. V                                RBbuf,1 
  568. z                                03,2 
  569. HQ                               RBbuf,5 
  570. VQ                               RBbuf,7 
  571. l_b                              RBbuf,6 
  572. m_b                              RBbuf,4 
  573. RXD                              RA,1 
  574. r_b                              RBbuf,2 
  575.  
  576.  
  577. PROGRAM MEMORY USAGE TABLE:    '-' = not used  'X' = used
  578.  
  579. 0000 : XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX
  580. 0040 : XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX
  581. 0080 : XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX
  582. 00C0 : XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX
  583. 0100 : XXXXXXXXXXXXXXXX XXXXXXXXX------- ---------------- ----------------
  584. 0140 : ---------------- ---------------- ---------------- ----------------
  585. 0180 : ---------------- ---------------- ---------------- ----------------
  586. 01C0 : ---------------- ---------------- ---------------- ----------------
  587.  
  588. Program Memory Words Used:  0281
  589. Program Memory Words Free:  0231
  590.  
  591. Errors: 0
  592.